Imports Dominio
Public Class CriterioCompCodArt
    Implements IComparer

    Public Function CompPorCodigoArt(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        Return CType(x, Articulo).codigo.CompareTo(CType(y, Articulo).codigo)
    End Function
End Class
